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; 1 1 ZTITLE ‘EDTSCHMSENDEL = find a sentence delimiter’ 

; ¢ § MODULE EDTSCHMSENDEL ( ' Find a sentence delimite 

; Ss st jDENT = 'v04-000' ' File: CHMSENDEL “BL! Edit: 
Py = 

; 2 Oba ! BEGIN 

: 7 00 ] [eeeeereeeereree eee eeeeeeeeee eee eee eee eee eee eee eee ee eeeeeeeeereeeeee 
3 8 44 1 !e * 
; 9 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 0010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 13 Ba t3 ; e ALL RIGHTS RESERVED. ’ 
$ 'e e 
: ig 01 1 !e ae ie acces IS FURNISHED weet A LICENSE AND MAY BE USED AND COPIED * 
>) 0014 1 !* ONLY IN ACCORDANCE WITH THE TER a OF SUCH LICENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE Tyg dh NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 BR18 1 !® (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
: + dt ; he TRANSFERRED. * 
Ps Hid ea 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ poss ; :* CORPORATION. * 
3 es e 
: 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 2 B0¢6 1 !® * 
s «6 00 1 Ie » 
4 28 00 8 1 Vee RR AAR AAAAEAAAAAAAAAAARAAEAA AERA AAA AAAAEARAAEAAARAAeeAeAAee eee 
3 9 0029 1! 

: $3 $036 1 

~ & 0031 1 !++ : 

: i 0032 1 ! FACILITY: EDT -- The DEC Standard Editor 

: 0033 1! 

; 34 0034 1 ! ABSTRACT: 

t/ | 0035 1! 

s 3 Bo86 ! This module looks for a sentence delimiter. 

3 $ 44 : : ENVIRONMENT: Runs at any access mode - AST reentrant 

3 re aaee : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

; é€ 0042 1 ! MODIFIED BY: 

s 635 0043 1! 

; 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 

s 65 0045 1! extracti ng the routine EDTS$SFND sSENOL IA from CHANGE .BLI. 

; 646 0046 1 ! 1-002 - Reguiarize headers. JBS 03-Mar-1981 

; «47 0047 1 ! 1-003 - Improve the appearance of the Listing. JBS 14-Jun-1983 

: 48 0048 1 !-- 

; | «649 0049 1 
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EDTSCHMSENDEL EDTSCHMSENDEL - find a sentence delimiter 16-Sep-1984 00:11:53 AX-11 Bliss-32 V4.0-74 
42000 Declarations 12-8 08- 1 3be HT: YEO T SREICHASEMDEL oi rc4 
3 1 4 9 } SBTTL ‘Declarations’ 
; q § 1 ! TABLE OF CONTENTS: 
; 4 1! 
ies are 
; 28 9039 | REQUIRE ‘“EDTSRC: TRAROUNAM'; 
a 0C8 eee SSEND SENDLIN lion 4 det imi 
Py ° ‘ 00 or nten m r 
ot a 0438 : ¥ L a sentence de te 
: 3 8438 i i INCLUDE FILES 
3 8g rit 1! 
;> & 0501 1 
4 65 0206 1 REQUIRE ‘EDTSRC:EDTREQ'; 
; & 0637 1 
; oF 0638 1! 
H 68 0639 1 ! MACROS: 
; @& 0640 1! 
:; 70 0641 1! NONE 
$ 71 Beeg 1! 
; 7 064 1 ! EQUATED SYMBOLS: 
; 7 0644 1! 
aa 0645 1! NONE 
.. 0646 1! 
3 76 0647 1 ! OWN STORAGE: 
, 0648 1! 
; 0649 1! NONE 
3 79 0650 1! 
: 80 0651 1 ! EXTERNAL REFERENCES: 
s 81 0652 1! 
3; & 0653 1! In the routine 
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EDTSCHMSENDEL EDTSCHMSENDEL - find 3 sentence delimiter 16-Sep-1984 60:11:53 AX-11 Bliss-32 V4.0-74 Page 3 
Oe 000 EDTSSFND_SENDLIM - tind a sentence del initer 1 =36071 382 99:3 746 EDT LSREICHASENDEL “1 144 . (3) 
; ¢ : ! ZSBTTL "EDTSSFND_SENDLIM = find a sentence delimiter’ | 
3 : 6 § 1 GLOBAL ROUTINE EDTSSFND_SENDLIM ( ! Find a sentence delimiter 
$ 44 6 } i. ! Include the delimiter in the found string 
; = | 
; 6289 6 § 1 
i 90 660 1 14+ | 
$ 4! 808) : FUNCTIONAL DESCRIPTION: | 
s; 9§ 0665 1! Look for a sentence delimiter. If one is found, move to the rigne 
; 694 0664 1! over it. A sentence delimiter must be a character in the set o | 
5 3? be 5 : delimiters followed by a space or a <CR>. 
; 97 066? 1 ! FORMAL PARAMETERS: 
; 0668 1! 
3; WW 0669 1! INC indicates whether or not the delimiter should 
: 100 0670 1! be included. 
3: 101 0671 1! 
: 106 067 1 ! IMPLICIT INPUTS: 
3s 0675 1! 
: 104 0674 1! EDTSS$A_US_ENT 
: 105 0675 1! EDTSSA_LN_END 
; 106 0676 1! EDTSSA_LN_PTR 
: 107 0677 1! 
; 108 0678 1°! IMPLICIT OUTPUTS: 
; 109 0679 1! 
: 110 0680 1! NONE 
¢ 1711 0681 1! 
: 116 068 1 ! ROUTINE VALUE: 
; 11 0683 1! ; : 
3 114 0684 1! A value of 1 is returned if a delimiter is found, 0 otherwise. 
: 6115 0685 1! 
; 116 0686 1 ! SIDE EFFECTS: 
: 117 0687 1! 
; «118 0688 1! NONE 
3 6119 0689 1! 
: 120 0690 1 !-- 
: 121 0691 1 
s Yee 0692 2 BEGIN 
s 23 0693 2 
: 124 0694 2 EXTERNAL ROUTINE : aod 
; 125 0695 2 EDTSSTST_ENTDELIM, ! Determine if the current character is an entity delimiter 
: 126 0696 2 EDTS$CS_CEFT ! Move left a character 
3 127 0697 EDTS$CS-RIGHT; i Move right a character 
: 128 0698 
: 129 0699 EXTERNAL 
; 130 0700 EDTSSA_US_ENT : VECTOR, ! Pointers to user defined entities | 
; (131 0701 EDTSSA_LN_END, ! End of current Line pointer 
: 13 44 EDTSSA_LN_PTR; ! Current character pointer 
: 13 14 
3; 134 704 ? . | 
3 «6135 0705 ' Look for a sentence delimiter. 
See ee 
: 133 oe IF EDTSSTST_ENTDELIM (.EDTS$A_US_ENT (1]) 
; 140 710 BEGIN 
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ears HMSENDEL EDTSCHMSENDEL - find a sentence met Uy 18-Sep-19 4 993] 
Vv EDTSSFND_SENDLIM = find a sentence delimiter 14-Sep-1984 12:22: 
> (141 711 '¢ 
: 106 ar ! Move to next character. 
: «614 71 t- 
s Vee ne EDTSSCS_RIGHT (); 
3 6146 Tig ! If we are at the end of a Line, accept the sentence and 
: iol ats } position either in front of or after the delimiter. 
: 149 71 
; 150 0720 4 IF CHSPTR_EQL (.EDTSSA_LN_PTR, .EDTSSA_LN_END) 
. wa 0721 3 THE 
5 12g 8! ¢ 4 BEGIN 
| 7 4 
; 138 8 ¢ 2 IF .INC THEN EDTS$SSCS_RIGHT () ELSE EDTSSCS_LEFT (); 
; 156 07 $ 4 RETURN (1); 
s 37 07 END; 
; 158 0728 
; 159 0729 '¢ 
: 160 0730 ! If the character is a blank, then accept the delimiter. 
: 19) 44 If we are to include the delimiter, include all trailing spaces. 
; 183 oF 38 : 
3 164 0734 4 IF (CHSRCHAR (.EDTS$A_LN_PTR) EQL XC" ") 
; 165 0735 3 THEN 
3; 166 bf 89 4 BEGIN 
3; «167 07 4 
; 168 0738 4 IF .INC 
3; 169 0739 4 THEN 
: 170 0740 5 BEGIN 
s 71 0741 5 
; "6 O44 5 WHILE (CHSRCHAR (.EDTSS$A_LN_PTR) EQL %C* °) DO 
> oF 0743 5 EDTSSCS_RIGHT (); 
3 174 0744 5§ 
: tre 0745 5 END 
; 176 0746 4 LSE 
s 77 0747 4 EDTSSCS_LEFT (); 
3; 178 0748 4 
; 179 0749 4 RETURN (1); 
; 180 0750 END; 
: «(181 0751 
$ 186 8736 EDTSSCS_LEFT (); 
; 18 075 END; 
3: «(186 bree 
s 185 755 '¢ _- 
3 196 O55 : We are not at a sentence delimiter, return 0; 
; 188 0758 RETURN (0); 
s 189 0759 1 END; ! 
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; Routine Size: 98 bytes, Routine Base: _EDTSCODE + 0000 


253 AX-11 Bliss-32 V4.0 

746 EDT.SRCJCHMSENDEL. gif: 
EDT 
ED 


T$$A_US_ ENT EDTSS$A_LN_END 
TS$A_LN_PTR 


-EDTSCODE,NOWRT, SHR, PIC,2 


#0, EDTS$CS_RIGHT 
#0, EDTSSCS_LEFT 
#1, RO 


EDTSSFND SENDLIM, Save R2,R3,R4 
EDTS$CS_CEF 

EDTS$SA ACN Brk, a3 

EDTS$SCS RIGHT. R2 
EDT$$A_OS_ENT+ 

#1, EDTSSTST_ENTDELIM 

RO, 6$ 

#0, EDTS$CS_R 

EDTSSA_ LN. srk SEOTSSA. LN_END 
INC, 3$ 

#0, EDT$$CS_RIGHT 

4 

EDTS$SA LN_PTR, RO 

(RO), #32 

5$ 

INC, 3$ 

EDT$$A LN_PTR, RO 

(RO), #32 

4$ 

2$ 


#0, EDTSSCS_LEFT 
RO 
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v04-000 EDTSSFND_SENDLIM o tind a sentence delimiter 2-328- 1984 99:3) :22:4 teDT. SRCICHMSENDEL.BLI;1 si (4) | 
193 762 1 END TSCHMSEN | 
13? Ores } E of module EDTSCHMSENDEL 
195 764 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 98 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
cannes Symbols -<------ Pages Processing 
File Total ieesed Percent Mapped Time 
-$255$DUA28: CEDT.SRCJEDT.L32;1 377 1 0 40 00:00 0.¢ 
~$255$DUA28: CEDT. SRC IPSECTS.L32;1 2 1 50 7 0 


COMMAND QUALIFIERS 
CL ESSLEME CROCE TELD, INITIAL GPT INI ZED /MOTRACEBACKAL 1S e8 158 1 CHRSENDEL /08J9OBJ8s CHASENDEL MSRC$: CHMSENDEL .BLI/UPDATE=(ENH$:C 


Size: 98 code + 0 data bytes 

Run Time: 00:11.2 

Elapsed Time: 00:13.5 

Lines/CPU Min: 4111 

Lexemes/CPU-Min: 11176 
7,¥ Used: 68 pages 

Compilation Complete 
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